function [] = print3(fileID,input,dim1,dim2,dim3)

    for i=1:dim1
        for j=1:dim2
            for k=1:dim3
                fprintf(fileID, '%e ',input(i, j, k));
            end
        end
    end
    fclose(fileID);

end

